home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / disk info (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  15KB  |  395 lines
  1. 10 REM DISK INFO OF VC 1541 WITH EPSON FX
  2. 20 REM BY S. ROETTGER
  3. 30 REM *** DIM ***
  4. 40 DIMT(664,1),D$(144),N$(144)
  5. 50 REM *** MERORIES ***
  6. 60 FORI=0TO39:C$=C$+" ":NEXT
  7. 70 FORI=0TO148:C1$=C1$+"-":NEXT
  8. 80 FORI=0TO25:C2$=C2$+".":NEXT
  9. 90 C3$="[221]                                      [221]"
  10. 100 FORI=0TO29:C4$=C4$+CHR$(255):NEXT
  11. 110 BA=53281:BO=53280:SI=54272:G=1024
  12. 120 BE$=CHR$(7):D2$=CHR$(18):D4$=CHR$(20):ES$=CHR$(27):EM$=ES$+"E":EF$=ES$+"F"
  13. 130 HT$=CHR$(9):L0$=ES$+"0":L2$=ES$+"2":LA$=ES$+"R":L$=CHR$(10):SF$=ES$+"T"
  14. 140 SI$=CHR$(15):SK$=ES$+"N":SO$=CHR$(14):SS$=ES$+"S":UN$=ES$+"-":Z$=CHR$(0)
  15. 150 UF$=UN$:UN$=UN$+CHR$(1):UF$=UF$+Z$:SF$=SF$+ES$:SF$=SF$+"H":SL$=CHR$(124)
  16. 160 S1$=CHR$(192)+CHR$(18)+CHR$(1)+"----------------
  17. 170 [139][195](S1$)[179]30[167]S1$[178]S1$[170]Z$:[137]170
  18. 180 [143] *** JMP START ***
  19. 190 AT[178]0:[137]3500
  20. 200 [143] ***** SUBROUTINES *****
  21. 210 [143] *** GET 1 ***
  22. 220 A$[178]"":[161]#1,A$:A[178][198](A$[170]Z$):[139]ST[178]0[167][142]
  23. 230 [139]2[175]ST[178]2[167]220
  24. 240 [137]1210
  25. 250 [143] *** GET 2 ***
  26. 260 A$[178]"":[161]#2,A$:A[178][198](A$[170]Z$):[139]ST[178]0[167][142]
  27. 270 [139]2[175]ST[178]2[167]260
  28. 280 [137]1210
  29. 290 [143] *** GET 3 ***
  30. 300 A$[178]"":[161]#3,A$:A[178][198](A$[170]Z$):[139]ST[178]0[167][142]
  31. 310 [139]2[175]ST[178]2[167]300
  32. 320 [143] *** SPECIAL ERROR ***
  33. 330 [132]15,Q,Q$,O,P:[139]Q[178]0[167][142]
  34. 340 [139]Q[179]30[176]Q[178]66[176]Q[178]67[176]Q[178]73[167]T[178]255:D$[178]"*BRK*":P$[178]"B":[142]
  35. 350 A[178]Q:A$[178]Q$:I[178]O:J[178]P:[137]1220
  36. 360 [143] *** PRINT LINE ***
  37. 370 LC[178]LC[170]1:[139]M[167]L[178](L[178]1)[170]1:[152]4,HT$L0$SS$[199](L)N$SF$:[139]L[167][152]4,L$
  38. 380 [139]M[167][142]
  39. 390 [152]4,HT$SF$N$L$:[142]
  40. 400 [143] *** BLIPS ON ***
  41. 410 [129]J[178]4[164]18[169]7:[151]SI[170]J,17:[130]:[142]
  42. 420 [143] *** BLIPS OFF ***
  43. 430 [129]J[178]4[164]18[169]7:[151]SI[170]J,0:[130]:[142]
  44. 440 [143] *** DEZ. -> HEX. ***
  45. 450 D[178][182](D):[139]D[177]255[167]D[178]255
  46. 460 [139]R1[178]0[167]H$[178][201](C$[170][196](D),3):[142]
  47. 470 H[178][181](D[173]16):G[178]D[171]16[172]H:H[178]H[170]48[170][180](H[171]9[170][182](H[171]9))[172]7:G[178]G[170]48[170][180](G[171]9[170][182](G[171]9))[172]7
  48. 480 G$[178][199](H)[170][199](G):H$[178]"$"[170]G$:[142]
  49. 490 [143] *** KILL BIT 7 ***
  50. 500 A$[178][199]([198](A$[170]Z$)[175]127)
  51. 510 [139][198](A$)[179]32[176][198](A$)[178]127[167]A$[178]"."
  52. 520 [142]
  53. 530 [143] *** PER CENT II ***
  54. 540 B[178][181](BF[173]16.8656[170].5):B$[178][196](B)
  55. 550 [139]B[179]100[167]B$[178][202]("00",[195](B$)[171]1)[170][202](B$,2)
  56. 560 N$[178]N$[170][202](C$[170]B$,[195](C$[170]B$)[171]4,3):N$[178]N$[170]".":N$[178]N$[170][201](B$,2):[142]
  57. 570 [143] *** FORMAT K BYTE ***
  58. 580 I[178][181](B[172]2.481[170].5):I$[178][196](I):[139]I[179]10[167]I$[178]"0"[170][202](I$,2)
  59. 590 N$[178]N$[170][202](C$[170]I$,[195](C$[170]I$)[171]4,4):N$[178]N$[170]".":N$[178]N$[170][201](I$,1)
  60. 600 N$[178]N$[170]"K":[142]
  61. 610 [143] *** SOUND ***
  62. 620 [140]:[139]F[167][129]I[178]0[164]24:[135]A:[130]
  63. 630 F[178](F[178]0):[129]I[178]0[164]24:[135]A:[151]SI[170]I,A:[130]:[142]
  64. 640 [143] *** QUESTION ***
  65. 650 R[178]1:Q1$[178]"YESCMDCMDCMDWAIT"
  66. 660 [151]214,L:[153]"ON"C$"ON"Q$" ";
  67. 670 [153]Q1$;:[141]410
  68. 680 [151]198,0:[146]198,1:[161]A$:A[178][198](A$[170]Z$):[141]430
  69. 690 [139]A[178]13[176]A[178]160[167][151]211,0:[153]C$:[141]430:[142]
  70. 700 [139]A[178]89[176]A[178]74[176]A[178]50[167]Q1$[178]"YESCMDCMDCMDWAIT":R[178]1:[137]670
  71. 710 [139]A[178]78[176]A[178]95[167]Q1$[178]"NOWAIT CMDCMDCMD":R[178]0:[137]670
  72. 720 [139]A$[178]"Q"[167][151]211,0:[153]C$:R[178]0:[141]430:[137]1270
  73. 730 [137]680
  74. 740 [143] *** INFORMATION ***
  75. 750 LE[178]LE[172]100:J2[178]1:I[178]1:[151]BO,C:[151]198,0:[153]:[151]214,L
  76. 760 M$[178]M$[170][201](C$,41[171][195](M$))
  77. 770 [141]410:I[178](I[178]1)[170]1:[153]"ON"[202](M$,I[170]1)"WAIT";
  78. 780 [129]J1[178]0[164]LE[169]J2:[130]:[161]A$:[141]430:[139]A$[178]""[167][151]SI[170]24,VO:J2[178]10:[137]770
  79. 790 [153]"ON"C$;:[151]SI[170]24,15:[142]
  80. 800 [143] *** PRINT HEADER ***
  81. 810 [152]4,ES$"Q"[199](96)ES$"D"[199](I)[199](50)Z$HT$HT$SO$UN$EM$L2$;
  82. 820 [159]2,8,2,"#":[141]1010:[160]2
  83. 830 [152]4,N$UF$EF$:N$[178]"":[141]370:[141]370:L[178]0:LC[178]3
  84. 840 [152]15,"UJ"
  85. 850 [132]15,A,A$,I,I:[139]A[171]73[167]850
  86. 860 N$[178]"DN  FORMAT  AUFZ.-DICHTE          DOS          BLOCK NUMBER    DISK-ID"
  87. 870 [141]370:N$[178]"08   "[170]F$:N$[178]N$[170]"   256 BYTES/SEC.  ":N$[178]N$[170]A$
  88. 880 N$[178]N$[170]"  683 (664 FREE)   ":N$[178]N$[170]D$:[141]370:N$[178]"":[141]370:[141]370:[142]
  89. 890 [143] *** NORMAL HEADER ***
  90. 900 N$[178]"":[141]220:[139]A[171]34[167]900
  91. 910 [141]220:[139]A[171]34[167][141]500:N$[178]N$[170]A$:[137]910
  92. 920 [141]220:[139]A[178]32[167]920
  93. 930 [141]500:D$[178]A$:[141]220:[141]500:D$[178]D$[170]A$:[142]
  94. 940 [143] *** PRG TYPE ***
  95. 950 D$[178]" ":[139]FA[175]64[167]D$[178]"<"
  96. 960 AD[178]197[170](FA[175]15):[129]I[178]AD[164]AD[171]10[169][171]5
  97. 970 [152]15,"M-R"[199](I)[199](254):[161]#15,A$:D$[178]A$[170]D$:[130]
  98. 980 [139]FA[175]128[167]D$[178]" "[170]D$:[142]
  99. 990 D$[178]"*"[170]D$:[142]
  100. 1000 [143] *** IMPROVED HEADER ***
  101. 1010 D$[178]"":F$[178]"XXXX":K$[178]"":N$[178]"":[152]15,"B-P:2,0"
  102. 1020 [152]15,"U1:2,0,18,0":[141]1210:[141]260:T1[178]A:[141]260:S1[178]A
  103. 1030 [152]15,"B-P:2,2":[141]260:[139]A[178]65[167]F$[178]"4040"
  104. 1040 [152]15,"B-P:2,144"
  105. 1050 [129]I[178]0[164]15:[141]260:[141]500:N$[178]N$[170]A$:[130]
  106. 1060 [141]260:[139]A[178]32[176]A[178]160[167]1060
  107. 1070 [129]I[178]0[164]4:[141]500:D$[178]D$[170]A$:[141]260:[130]
  108. 1080 [141]260:[141]260:[129]I[178]0[164]83:[141]260:K$[178]K$[170]A$:[130]:[142]
  109. 1090 [143] *** NAME.TYPE.BLOCKS ***
  110. 1100 N$[178]"":[141]220:[139]A$[177]""[167]1100
  111. 1110 [161]#1,A$,A$,A$,B$:B[178]256[172][198](B$[170]Z$)[170][198](A$[170]Z$):B$[178][196](B)
  112. 1120 [141]220:[139]A[178]32[167]1120
  113. 1130 [139]A[178]66[167][142]
  114. 1140 [141]220:[139]A[171]34[167][141]500:N$[178]N$[170]A$:[137]1140
  115. 1150 [141]220:[139]A[178]32[167]1150
  116. 1160 D$[178]" ":[139]A[178]42[167]D$[178]A$:[141]220
  117. 1170 [129]I[178]0[164]2:D$[178]D$[170]A$:[141]220:[130]
  118. 1180 [139]A[178]60[167]D$[178]D$[170]A$:[142]
  119. 1190 D$[178]D$[170]" ":[142]
  120. 1200 [143] *** DISK STATUS ***
  121. 1210 [132]15,A,A$,I,J:[139]A[178]0[167][142]
  122. 1220 M$[178][196](A)[170]"  ":M$[178]M$[170]A$:M$[178]M$[170][196](I):M$[178]M$[170][196](J):L[178]10:C[178]2:LE[178]20:VO[178]15
  123. 1230 [143] *** ERROR MESSAGE ***
  124. 1240 [151]214,L[171]1:[153]"ON"C$""C$;:M$[178]""[170]M$:[141]620:[141]750:[141]620
  125. 1250 [151]214,L[171]1:[153]"ONSTOP"C$""C$"SYS";:[151]BO,0
  126. 1260 [143] *** DIRECTORY END ***
  127. 1270 [160]1:[160]2:[160]3:[160]4:[160]15
  128. 1280 Q$[178]"ANOTHER DIRECTORY ?":L[178]10:[141]650:[139]R[167][142]
  129. 1290 [151]BA,15:[151]BO,15:[153]"POKELOAD";:[128]
  130. 1300 [143] *** PRINT END ***
  131. 1310 [141]370:[152]4,BE$,L0$;:[160]1
  132. 1320 L[178]10:Q$[178]"WANT TO MAKE A LINE FEED ?":Q1$[178]" NOWAIT CMDCMDCMD":R[178]0
  133. 1330 [141]660:[139]R[167][152]4,L$:[137]1330
  134. 1340 [152]4,ES$"@":[137]1270
  135. 1350 [143] *** DIR SCREEN ***
  136. 1360 II[178]0:[139]N[177]20[167]II[178]N[171]20
  137. 1370 [153]"":[129]I1[178]II[164]N:[153][163]20)[202](N$(I1),4,16):[130]:[142]
  138. 1380 [143] *** SCREEN ***
  139. 1390 [153]"SYS"[166]13)"DISK INFO V1.0"
  140. 1400 [153]"     C 64 & VC 1541 & EPSON FX 80
  141. 1410 PRINT"       (W) 1985   BY S. ROETTGER
  142. 1420 [142]
  143. 1430 [143] *** F-TAST MENUE ***
  144. 1440 [139]AT[167]1510
  145. 1450 C[178]0:L[178]10:LE[178]8:VO[178]3:M$[178]"       PLEASE ENTER YOUR CHOISE":[141]750
  146. 1460 AT[178][198](A$)[171]132:[139]AT[178][171]38[167]3500
  147. 1470 [139]AT[179]1[176]AT[177]8[167]1450
  148. 1480 [139]AT[177]4[167]M[178]1:AT[178]AT[171]4
  149. 1490 A[178]1516[170]AT[172]80:[129]I[178]0[164]26:J[178][194](A[170]I):[151]A[170]I,J[176](128[172]((J[178]32)[170]1)):[130]
  150. 1500 [139]M[167][129]I[178]0[164]6:[151]1916[170]I,[194](1916[170]I)[176]128:[130]
  151. 1510 L[178]10:Q$[178]"CHOICE OK ?":[141]650:[139]R[178]0[167][142]
  152. 1520 [159]15,8,15,"I":[141]1210
  153. 1530 I[178][171](AT[178]1):[159]4,4,1:[152]4,ES$" "[199](I);:[160]4
  154. 1540 [159]4,4,0:[152]4,LA$[199](0)ES$"C"[199](70)SK$[199](3);[199](27)"(null)":[142]
  155. 1550 [143] ***** SHORT *****
  156. 1560 M$[178]"  ENTER POSITION LEFT - RIGHT [1-4] :":I1[178]4:[141]1640
  157. 1570 [152]4,ES$"Q"[199](96)SI$ES$"D"[199](E[172]35[171]12)Z$HT$D2$L0$UN$EM$;
  158. 1580 M$[178]"":Q$[178]SI$:I1[178]2:[137]1660
  159. 1590 [143] ***** NORMAL *****
  160. 1600 M$[178]"  ENTER POSITION LEFT - RIGHT [1-2] :":I1[178]2:[141]1640
  161. 1610 [152]4,ES$"Q"[199](96)ES$"D"[199](E[172]40[171]24)Z$HT$L0$UN$EM$SO$;
  162. 1620 M$[178]D4$:Q$[178]"":I1[178]4:[137]1660
  163. 1630 [143] *** SHORT & NORMAL DIRECTORY ***
  164. 1640 C[178]0:L[178]10:LE[178]9:VO[178]3:[141]750:E[178][197](A$):[139]E[179]1[176]E[177]I1[167]1640
  165. 1650 [142]
  166. 1660 [159]1,8,0,"$":[141]900:[152]4,N$UF$M$" "D$EF$:[139]E[171]4[167][152]4,L$
  167. 1670 L[178]1:N$[178]"":[141]370
  168. 1680 [141]1100:[139]A[178]66[167]1710
  169. 1690 N$[178][200](N$[170]C$,17)[170][200](D$,I1):N$[178]N$[170][201](D$,1)
  170. 1700 N$[178]N$[170][201](C$[170]B$,4):[141]580:[152]4,Q$;:[141]370:[137]1680
  171. 1710 N$[178]"":[141]370:N$[178][200](B$[170]" BLOCKS FREE       ",20)[170][196]([181](100.5[171]B[173]6.64))
  172. 1720 N$[178]N$[170]"% USED":[137]1310
  173. 1730 [143] ***** EXTENDED DIRECTORY *****
  174. 1740 I[178]22:[141]810
  175. 1750 N$[178]" FILE - NAME        BLOCK     BYTES      PER CENT     TYPE":[141]370
  176. 1760 N$[178][200](C1$,61):[141]370
  177. 1770 K[178]0:[159]1,8,0,"$":[141]900
  178. 1780 [141]1100:[139]A[178]66[167]I[178]61:SK[178]K:[137]2330
  179. 1790 K[178]K[170]1:I[178]21:[139]M[178]0[167]N$[178]EM$[170]N$:N$[178]N$[170]EF$:I[178]25
  180. 1800 N$[178][200](N$[170]C2$,I):N$[178]N$[170][201](C$[170]B$,3):N$[178]N$[170][200](C2$,5)
  181. 1810 N$[178]N$[170][201](C$[170][196]([181](B[172]254[170].5)),6):N$[178]N$[170][200](C2$,7):BF[178]254[172]B:[141]540
  182. 1820 N$[178]N$[170][200](C2$,6):N$[178]N$[170]D$:[141]370:[137]1780
  183. 1830 [143] ***** IMPROVED DIRECTORY *****
  184. 1840 AU[178]0:[139]A1[178]2[175]AT[178]3[167]AU[178]1
  185. 1850 I[178]12:[141]810
  186. 1860 N$[178]" FILE - NAME       STR-SSC   S.ADR- E.ADR  BLOCK   BYTES   PER CENT"
  187. 1870 N$[178]N$[170]"  TYPE   ETR-ESC":[141]370:N$[178][200](C1$,83):[141]370
  188. 1880 L[178]10:Q$[178]"HEXADEZIMAL OUTPUT ?":[141]650:R1[178]R
  189. 1890 L[178]10:Q$[178]"PPRINT WITH DELETED FILES ?":Q1$[178]"NOWAIT CMDCMDCMD":R[178]0:[141]660:R2[178]R[171]1
  190. 1900 [159]2,8,2,"#":K[178]0:BS[178]0:BC[178]0:I1[178]8:[141]1010
  191. 1910 E$[178]" ..- ..":AD$[178]" .....- .....":B[178]0:BF[178]0
  192. 1920 [139]I1[179]8[167]1950
  193. 1930 [139]T1[178]0[167]I[178]83:[137]2310
  194. 1940 I1[178]0:[152]15,"U1:2,0,"T1;S1:[152]15,"B-P:2,0":[141]260:T1[178]A:[141]260:S1[178]A
  195. 1950 [152]15,"B-P:2,"2[170]I1[172]32:[141]260:FA[178]A:[139]FA[167]K[178]K[170]1
  196. 1960 [141]260:T[178]A:[139]T1[178]0[175]FA[178]0[175]T[178]0[167]I[178]83:[137]2310
  197. 1970 [139]FA[178]0[175]R2[167]I1[178]I1[170]1:[137]1910
  198. 1980 [141]950:D[178]T:[141]450:S$[178]H$:[141]260:S[178]A:D[178]A:[141]450
  199. 1990 S$[178]S$[170]"-":S$[178]S$[170]H$:N$[178]""
  200. 2000 [129]I[178]0[164]15:[141]260:[141]500:N$[178]N$[170]A$:[130]
  201. 2010 [152]15,"B-P:2,"30[170]I1[172]32:[141]260:AP[178]A:[141]260:AP[178]AP[170]A[172]256:[139]FA[167]BC[178]BC[170]AP
  202. 2020 [139]AU[167]L[178]10:Q$[178][200](N$[170]C$,18)[170]D$:Q1$[178]"NOWAIT CMDCMDCMD":R[178]0:[141]660:R3[178]R
  203. 2030 [139]AU[175]R3[178]0[167]I1[178]I1[170]1:[137]1910
  204. 2040 P$[178][202](D$,2,1):[139]P$[178]"R"[176]P$[178]"U"[176]D$[178]" DEL<"[167]2180
  205. 2050 T(0,0)[178]T:T(0,1)[178]S:[159]3,8,3,"#":[141]1210:I[178]0
  206. 2060 [152]15,"U1:3,0,"T;S:[141]330:[139]T[178]255[167]T[178]0:[137]2100
  207. 2070 [152]15,"B-P:3,0":I[178]I[170]1:V[178]T:[141]300:T[178]A:U[178]S:[141]300:S[178]A
  208. 2080 [139]I[178]1[167][141]300:J[178]A:[141]300:W[178]A
  209. 2090 T(I,0)[178]T:T(I,1)[178]S:[139]T[167]2060
  210. 2100 [160]3:BB[178]I:D[178]V:[141]450:E$[178]H$[170]"-":D[178]U:[141]450:E$[178]E$[170]H$:[139]P$[178]"P"[167]S[178]S[171]3
  211. 2110 [139]I[179]AP[167]D$[178]" BRK*":P$[178]"B"
  212. 2120 BF[178](I[171]1)[172]254[170]S:B[178]I:[139]P$[178]"S"[176]P$[178]"U"[167]2180
  213. 2130 D[178]W:[141]450:W$[178]H$:D[178]J:[141]450:J$[178]G$
  214. 2140 B[178]BF[170]256[172]W[170]J:U[178][181](B[173]256):V[178]B[171]256[172]U:BF$[178][196](BF):B[178]I
  215. 2150 D[178]U:[141]450:U$[178]H$:D[178]V:[141]450:V$[178]G$
  216. 2160 [139]R1[167]AD$[178]" "[170]W$:AD$[178]AD$[170]J$:AD$[178]AD$[170]"- ":AD$[178]AD$[170]U$:AD$[178]AD$[170]V$:[137]2180
  217. 2170 AD$[178][201](C$[170][196](W[172]256[170]J),6)[170]"-":AD$[178]AD$[170][201](C$[170][196](U[172]256[170]V),6)
  218. 2180 BS[178]BS[170]B:I[178]19:[139]M[178]0[167]N$[178]EM$[170]N$:N$[178]N$[170]EF$:I[178]23
  219. 2190 N$[178][200](N$[170]C$,I):N$[178]N$[170]S$:N$[178]N$[170]"  ":N$[178]N$[170]AD$:N$[178]N$[170]"   "
  220. 2200 N$[178]N$[170][201](C$[170][196](B),3):N$[178]N$[170]"   ":N$[178]N$[170][201](C$[170][196](BF),6)
  221. 2210 N$[178]N$[170]"    ":[141]540:N$[178]N$[170]"   ":N$[178]N$[170]D$:N$[178]N$[170]"  ":N$[178]N$[170]E$
  222. 2220 [141]370:[139]R3[178]0[167]I1[178]I1[170]1:[137]1910
  223. 2230 N$[178]"":[141]370:N$[178]"    "[170]SL$[170]"  ":[129]J[178]1[164]10:D[178]J:[141]450
  224. 2240 N$[178]N$[170][200](H$[170]C$,8):[130]
  225. 2250 N$[178][200](N$,84):[141]370:N$[178]"----+"[170][200](C1$,79):[129]J[178]0[164]BB[170]1:D[178]J:[141]450
  226. 2260 [139]J[173]10[178][181](J[173]10)[167]N$[178][200](N$,84):[141]370:N$[178][201](C$[170]H$,4)[170]SL$
  227. 2270 D[178]T(J,0):[141]450:N$[178]N$[170]H$:N$[178]N$[170]"-"
  228. 2280 D[178]T(J,1):[141]450:N$[178]N$[170]H$:N$[178]N$[170]" ":[130]:N$[178][200](N$,[195](N$)[171]8)[170]D$
  229. 2290 [141]370:N$[178][200](C1$,84):[141]370:N$[178]"":[141]370:I1[178]I1[170]1:[137]1910
  230. 2300 [143]***FINISH EXTENDED & IMPROVED***
  231. 2310 [152]15,"M-R"[199](250)[199](2):[161]#15,A$:B[178][198](A$[170]Z$)
  232. 2320 [152]15,"M-R"[199](252)[199](2):[161]#15,A$:B[178]B[170][198](A$[170]Z$)[172]256
  233. 2330 [139]M[178]0[167]L[178]10:Q$[178]"USE COMPLETE FORM ?":[141]650
  234. 2340 [139]M[178]0[175]R[167][129]J[178]LC[164]61:[152]4,L$;:[130]
  235. 2350 N$[178][200](C1$,I):[141]370
  236. 2360 N$[178]"BLOCKS FREE ( BAM ) . . . . . : "[170][201](C$[170][196](B),3):N$[178]N$[170]" => "
  237. 2370 N$[178]N$[170][201](C$[170][196]([181](B[173]6.64[170].5)),3)
  238. 2380 N$[178]N$[170]" PER CENT FREE.":[141]370:[139]AT[178]3[176]AU[167]2430
  239. 2390 N$[178]"BLOCKS SHOWN IN DIRECTORY . . : "[170][201](C$[170][196](BC),3):N$[178]N$[170]" => "
  240. 2400 N$[178]N$[170][201](C$[170][196]([181](BC[173]6.64[170].5)),3):N$[178]N$[170]" PER CENT USED.":[141]370
  241. 2410 N$[178]"BLOCKS USED BY PRG, SEQ & USR : "[170][201](C$[170][196](BS),3):N$[178]N$[170]" => "
  242. 2420 N$[178]N$[170][201](C$[170][196]([181](BS[173]6.64[170].5)),3):N$[178]N$[170]" PER CENT USED.":[141]370
  243. 2430 N$[178]"ENTRIES . . . . . . . . . . . : "[170][201](C$[170][196](K),3):N$[178]N$[170]" => "
  244. 2440 N$[178]N$[170][201](C$[170][196](144[171]K),3):N$[178]N$[170]" ENTRIES FREE .":[141]370
  245. 2450 N$[178]K$:[137]1310
  246. 2460 I[178]20:[141]810
  247. 2470 N$[178]"":[141]370
  248. 2480 L[178]10:Q$[178]"HEXADEZIMAL OUTPUT ?":[141]650:R1[178]R
  249. 2490 [151]214,9:[153]"ON"C$"ON ENTERWAIT TRACK  :  ( '+' & '-' )   AND    ";
  250. 2500 [153]"       SECTOR :  ( SHIFT '+' & '-' )    ":T[178]18:S[178]0
  251. 2510 [151]214,12:[153]"ON       TRACK :";:D[178]T:[141]450:[153]H$"     SECTOR :";
  252. 2520 D[178]S:[141]450:[153]H$
  253. 2530 [151]198,0:[146]198,1:[161]A$:A[178]44[171][198](A$[170]Z$)
  254. 2540 [139][182](A)[178]1[167]T[178]T[170]A:T[178]T[171](T[178]0):T[178]T[170](T[178]36)
  255. 2550 S1[178]21:[139]T[177]17[167]S1[178]19:[139]T[177]24[167]S1[178]18:[139]T[177]30[167]S1[178]17
  256. 2560 A[178]A[170]176:[139][182](A)[178]1[167]S[178]S[170]A
  257. 2570 S[178]S[171](S[178][171]1):[139]S[177]S1[167]S[178]S1
  258. 2580 [139]A[171]207[167]2510
  259. 2590 [159]3,8,3,"#":[141]1210
  260. 2600 [152]15,"U1:3,0,"T;S:[141]330
  261. 2610 N$[178]"TRACK :":D[178]T:[141]450:N$[178]N$[170]H$[170]"     SECTOR :"
  262. 2620 D[178]S:[141]450:[152]4,L0$HT$HT$EM$UN$N$H$UF$EF$L$L$
  263. 2630 N$[178]":     "[170]SL$[170]" ":[129]I[178]0[164]7:D[178]I:[141]450:N$[178]N$[170]H$[170]"  ":[130]
  264. 2640 N$[178]N$[170]"   ":[129]I[178]0[164]7:N$[178]N$[170][202]([196](I),2):[130]:[141]370
  265. 2650 N$[178]"------+"[170][200](C1$,52)
  266. 2660 SL$[178]" "[170]SL$[170]" ":[129]I[178]0[164]255:D[178]I:[141]450
  267. 2670 [139]I[173]8[178][181](I[173]8)[167]N$[178]N$[170]"   "[170]N1$:[141]370:N$[178]": "[170]H$[170]SL$:N1$[178]""
  268. 2680 [141]300:D[178]A:[141]450:N$[178]N$[170]H$[170]"  "
  269. 2690 O[178]0:[139]A[177]127[167]O[178]1:A[178]A[175]127
  270. 2700 [139]A[179]32[176]A[178]127[167]A[178]46
  271. 2710 [139]M[178]0[175]O[167]N1$[178]N1$[170]SS$[170][199](0)[170][199](A)[170]SF$:[137]2730
  272. 2720 N1$[178]N1$[170][199](A)
  273. 2730 [130]:N$[178]N$[170]"   "[170]N1$:[141]370:N$[178]"":N1$[178]"":SL$[178][199](124)
  274. 2740 [152]4,L$L$:[160]3
  275. 2750 [151]214,8:[153]"ON"C$C$C$C$:L[178]10:Q$[178]"WANT TO PRINT NEXT SECTOR ?":[141]650
  276. 2760 [139]R[167]2480
  277. 2770 [151]214,9:[153]"ON"C$C$C$C$:[137]1310
  278. 2780 [152]4,SI$ES$"Q"[199](159)D2$ES$"D"[199](20)[199](50)Z$HT$HT$SO$UN$EM$L2$;
  279. 2790 [141]820:L[178]10:Q$[178]"HEXADEZIMAL OUTPUT ?":[141]650:R1[178]R:HT$[178]Z$
  280. 2800 N$[178][200](C$,5)[170]"SECTOR: ":[129]I[178]0[164]20:D[178]I:[141]450:N$[178]N$[170]H$[170]"    ":[130]
  281. 2810 N$[178][200](N$,159):[152]4,L0$SI$;:[141]370
  282. 2820 N$[178][200](C$,5)[170]"------+"[170][200](C1$,147):[159]3,8,3,"#":[141]1210
  283. 2830 [129]I[178]1[164]35:S1[178]20:[139]I[177]17[167]S1[178]18:[139]I[177]24[167]S1[178]17:[139]I[177]30[167]S1[178]16
  284. 2840 N$[178][200](N$,159):[152]4,SI$;:[141]370:D[178]I:[141]450
  285. 2850 N$[178][200](C$,5)[170]"TR:"[170]H$[170]SL$
  286. 2860 [129]J[178]0[164]S1:[152]15,"U1:3,0,"I;J:[152]15,"B-P:3,0":[141]300:D[178]A:[141]450
  287. 2870 H1$[178]H$:[141]300:D[178]A:[141]450:H1$[178]H1$[170]"-"[170][202](H$,2)[170]" "
  288. 2880 [139]H1$[178]"$4B-01 "[176]H1$[178]" 75- 1 "[167]H1$[178]"------ ":[137]2900
  289. 2890 [139][200](H1$,3)[178]"$00"[176][200](H1$,3)[178]"  0"[167]H1$[178]"  *"[170]H$[170]" "
  290. 2900 N$[178]N$[170]H1$:[130]:[130]:[141]370
  291. 2910 N$[178]"":[141]370:[152]4,D2$;:HT$[178][199](9):[141]370:[141]370:[137]1310
  292. 2920 [143] *** UDD ***
  293. 2930 N[178]0:N$(N)[178]"":E[178]0:D$(E)[178]"":G[178]1024
  294. 2940 [151]214,10:[153]"ON        WAIT FOR DISK ACCESS...         "
  295. 2950 [159]3,8,3,"#":[141]1210:[152]15,"U1:3,0,18,0":[141]1210
  296. 2960 [161]#3,T$,U$
  297. 2970 I[178][198](T$[170]Z$):J[178][198](U$[170]Z$):[139]I[171]18[167]F1[178]1
  298. 2980 [152]15,"U1:3,0"I;J:[141]1210:[161]#3,T$,U$
  299. 2990 [129]I[178]0[164]7:B$[178]"":[129]J[178]1[164]30:[161]#3,A$:[139]A$[178]""[167]A$[178]Z$
  300. 3000 B$[178]B$[170]A$:[130]:[139][198](B$)[177]0[175][202](B$,4,16)[179][177][202](S1$,4,16)[167]D$(E)[178]B$:E[178]E[170]1
  301. 3010 [161]#3,A$,A$:[130]:[139]T$[177]""[167]2970
  302. 3020 [160]3:E[178]E[171]1:[139]E[178][177]0[167]3050
  303. 3030 [141]620:L[178]10:LE[178]8:V0[178]5:C[178]0:M$[178]" * * * NO DIRECTORY * * *":[141]750
  304. 3040 [141]620:[137]3460
  305. 3050 [139]F1[167]LE[178]8:L[178]10:VO[178]3:M$[178]" * 'VALIDATE' SHOULD  BE PERFORMED *":[141]750
  306. 3060 [153]"LOADCLR  * * *  USERDESIGNED DIRECTORY  * * *  HIT @ FOR ASCII SORTSYS
  307. 3070 B=A+19:IFB>ETHENB=E
  308. 3080 FORI=ATOB:PRINTTAB(1)MID$(D$(I),4,16):NEXT:Q=0:GOSUB3470
  309. 3090 POKEG+80+Y*40,62:FORI=55374TO55395:POKEI+Y*40,1:NEXT:IFQTHEN3060
  310. 3100 POKE198,0:WAIT198,1:GETA$:B=ASC(A$):IFB-64THEN3150
  311. 3110 PRINT"[147] ASCII-SORT [146] - WAIT...
  312. 3120 [129]I[178]0[164]E:B$[178]C4$:[129]J[178]0[164]E
  313. 3130 [139][202](D$(J),4,16)[179]B$[167]B$[178][202](D$(J),4,16):Q[178]J
  314. 3140 [130]:N$(N)[178]D$(Q):N[178]N[170]1:D$(Q)[178]C4$:[130]:N[178]N[171]1:[137]3300
  315. 3150 [151]G[170]80[170]Y[172]40,32:[129]I[178]55374[164]55395:[151]I[170]Y[172]40,7:[130]
  316. 3160 [139]B[178]145[175]Y[177]0[167]Y[178]Y[171]1:[137]3090
  317. 3170 [139]B[178]145[175]A[177]0[167]A[178]A[171]20:Y[178]19:[137]3060
  318. 3180 [139]B[178]135[167]3240
  319. 3190 [139]B[178]136[167]3280
  320. 3200 [139]A[170]Y[178]E[167]3090
  321. 3210 [139]B[178]17[175]Y[179]19[167]Y[178]Y[170]1:[137]3230
  322. 3220 [139]B[178]17[167]A[178]A[170]20:Y[178]0:[137]3060
  323. 3230 [137]3090
  324. 3240 N$(N)[178]D$(A[170]Y):[139]E[178]0[167]3300
  325. 3250 [139]A[170]Y[179]E[167][129]I[178]A[170]Y[164]E[171]1:D$(I)[178]D$(I[170]1):[130]
  326. 3260 N[178]N[170]1:E[178]E[171]1:[139]A[170]Y[177]E[167]B[178]145:Q[178]1:[141]3470:[137]3150
  327. 3270 [137]3060
  328. 3280 [139]N[170]E[177]141[167][141]430:[141]410:[141]3470:[137]3090
  329. 3290 N$(N)[178]S1$:N[178]N[170]1:[141]3470:[137]3090
  330. 3300 [153]"LOADSYS- NEW DIRECTORY :
  331. 3310 FORI=0TON:PRINTMID$(N$(I),4,16):FORT=1TO250:NEXT:NEXT
  332. 3320 PRINT"":L=23:Q$="- DIRECTORY O.K. ?":GOSUB650:IFR=0THEN3460
  333. 3330 PRINT"[147]FILE SEPERATORS SHOULDNOT BE SCRATCHED !"
  334. 3340 E=0:PRINT"         WAIT FOR DISK ACCESS...        "
  335. 3350 PRINT#15,"I":GOSUB1210:OPEN3,8,3,"#":GOSUB1210
  336. 3360 PRINT#15,"U2:3,0,18,0":GOSUB1210
  337. 3370 FORI1=0TO18:PRINT#15,"B-F:0,18"I1:GOSUB1210:NEXT:PRINT#15,"B-A:0,18,0":S=1
  338. 3380 PRINT#15,"B-A:0,18"S:PRINT#15,"B-P:3,0":FORI1=0TO7
  339. 3390 PRINT#3,Z$Z$N$(E);:IFE=NTHEN3440
  340. 3400 E=E+1:NEXT
  341. 3410 T=S+3:IFT>18THENT=T-17
  342. 3420 PRINT#15,"B-P:3,0":PRINT#3,CHR$(18)CHR$(T);
  343. 3430 PRINT#15,"U2:3,0,18"S:GOSUB1210:S=T:GOTO3380
  344. 3440 IFI1<7THENFORJ=1TO(7-I1)*32:PRINT#3,Z$;:NEXT
  345. 3450 PRINT#15,"B-P:3,0":PRINT#3,Z$CHR$(255);:PRINT#15,"U2:3,0,18"S:GOSUB1210
  346. 3460 CLOSE3:PRINT#15,"I":GOSUB3750:GOTO1270
  347. 3470 II=0:IFN>20THENII=N-20
  348. 3480 PRINT"":FORI1=IITON-1:PRINTTAB(20);MID$(N$(I1),4,16):NEXT:RETURN
  349. 3490 REM ***** MAIN MENUE *****
  350. 3500 F=0:POKEBO,0:POKEBA,0:POKE650,128:GOSUB620
  351. 3510 PRINTCHR$(142)"[147][156]"C$"   * * * *  D I S K   I N F O  * * * *  "C$:GOSUB1390
  352. 3520 POKE214,13:PRINT:PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"C3$C3$;
  353. 3530 PRINT"[221]  'F5'   = DIRECTORIES                [221]"C3$C3$;
  354. 3540 PRINT"[221]  'F7'   = SPEZIAL[160]DISK[160]DATA          [221]"C3$C3$;
  355. 3550 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  356. 3560 C=0:L=10:LE=8:VO=3:M$="       PLEASE ENTER YOUR CHOICE...":GOSUB750
  357. 3570 A1=ASC(A$)-134:IFA1=-40THEN1290
  358. 3580 IFA1<1ORA1>2THEN3560
  359. 3590 A=1596+A1*120:FORI=0TO26:J=PEEK(A+I):POKEA+I,JOR(128*((J=32)+1)):NEXT
  360. 3600 L=10:Q$="CHOICE OK ?":GOSUB650:IFR=0THENA1=0:GOTO3520
  361. 3610 AT=0:ONA1GOTO3630,3750
  362. 3620 REM ***** DIRECTORIES *****
  363. 3630 PRINT"[147][156]     * * * PRINTED DIRECTORY * * *      ":GOSUB1390
  364. 3640 POKE214,12:PRINT:PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  365. 3650 PRINT"[221]  'F1'   = SHORT[160]DIRECTORY            [221]"C3$;
  366. 3660 PRINT"[221]  'F3'   = NORMAL[160]DIRECTORY           [221]"C3$;
  367. 3670 PRINT"[221]  'F5'   = EXTENDED[160]DIRECTORY         [221]"C3$;
  368. 3680 PRINT"[221]  'F7'   = IMPROVED[160]DIRECTORY         [221]"C3$;
  369. 3690 PRINT"[221]'SHIFT+' = MICRO[160]+                    [221]";
  370. 3700 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  371. 3710 GOSUB1440:IFR=0THENAT=0:M=0:GOTO3640
  372. 3720 ONATGOSUB1560,1600,1740,1840
  373. 3730 GOTO3710
  374. 3740 REM ***** DISK DATA *****
  375. 3750 PRINT"[147][156]  * * * *  SPEZIAL DISK DATA  * * * *   ":GOSUB1390
  376. 3760 POKE214,12:PRINT:PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  377. 3770 PRINT"[221]  'F1'   = LIST[160]CONNECTION[160]POINTERS   [221]"C3$;
  378. 3780 PRINT"[221]  'F3'   = PRINT[160]SECTOR               [221]"C3$;
  379. 3790 PRINT"[221]  'F5'   = SECTORS[160]USED[160]BY[160]PROGRAM    [221]"C3$;
  380. 3800 PRINT"[221]  'F7'   = USERDESIGNED[160]DIRECTORY     [221]"C3$;
  381. 3810 PRINT"[221]'SHIFT+' = MICRO[160]+                    [221]";
  382. 3820 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  383. 3830 IFAT=4THENFORI=0TO21:POKE1836+I,PEEK(1836+I)OR128:NEXT:RETURN
  384. 3840 GOSUB1440:IFR=0THENAT=0:M=0:GOTO3760
  385. 3850 ONATGOSUB2780,2460,1840,3870
  386. 3860 GOTO3840
  387. 3870 POKE214,12:PRINT:PRINT"[158][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"C3$C3$;
  388. 3880 PRINT"[221]  'F5'   = TAKE FILE TO LIST          [221]"C3$C3$C3$;
  389. 3890 PRINT"[221]  'F7'   = SEPARATE FILES             [221]"C3$C3$;
  390. 3900 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":GOTO2930
  391. 3910 REM *** SOUND DATA ***
  392. 3920 DATA187,34,,,16,10,,207,34,,,16,10,,227,34,,,16,10,,,,,15
  393. 3930 DATA160,8,,,16,12,,180,8,,,16,8,,200,8,,,16,12,,,,,15
  394. 0 
  395.